Voorbeeld van het object Err

Dit voorbeeld maakt gebruik van de eigenschappen van het object Err om een dialoogvenster voor foutberichten te maken. Wanneer u een Visual Basic-fout genereert met de methode Raise en eerst de methode Clear gebruikt, worden de standaardwaarden van Visual Basic de eigenschappen van het object Err.

Dim Msg
' Als een fout optreedt, wordt een foutbericht samengesteld
On Error Resume Next    ' Stelt foutafhandeling uit.
Err.Clear
Err.Raise 6    ' Genereert een "Overloop"-fout.
' Controleert op een fout en geeft vervolgens foutbericht weer.
If Err.Number <> 0 Then
    Msg = "Fout # " & Str(Err.Number) & " werd gegenereerd door " _
            & Err.Source & Chr(13) & Err.Description
    MsgBox Msg, , "Fout", Err.Helpfile, Err.HelpContext
End If